# ...
gtrends_data_ts <- gtrends(input$keyword) %>%
mutate_at(vars(-date), as.numeric) %>%
pivot_longer(!date, names_to = "keyword", values_to = "hits") %>%
mutate(date = yearmonth(date)) %>%
mutate(keyword = factor(keyword, levels=levels, labels=languages)) %>%
as_tsibble(index = date, key = keyword)